home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / rexx / xdmd1.lha / InsLitFont.xdme < prev    next >
Text File  |  1994-10-23  |  385b  |  16 lines
  1. /* InsLitFont.xdme */
  2. /* Copyright © 1994 Fergus Duniho */
  3.  
  4. if ~show("L","rexxarplib.library") then
  5.     if ~addlib("rexxarplib.library",0,-30) then exit
  6.  
  7. F = GetClip('F')
  8. If F = '' Then F = 'topaz.font 8'
  9. FONT = Word(F,1)
  10. SIZE = Word(F,2)
  11.  
  12. F = GetFont(,,FONT,SIZE,'Select Font for Insert Literal',,'FIXEDWIDTH',FNT,8,11)
  13. If F = "" Then Exit
  14. F = FNT.Name FNT.YSize
  15. Call SetClip('F', F)
  16.